
NT=0;CLEAR 
   1 PRINT "WHAT PROGRAM?";FOR A=0TO 14;@(A)=0
   2 K=KP;TV=K;IF K=31A=A-1;GOTO 2
   3 IF K=13GOTO 5
   4 @(A)=K;NEXT A
   5 C=A-1;CLEAR ;PRINT ":INPUT ";NT=0;:INPUT 
   6 FOR A=0TO C;K=KP;IF K#@(A)GOTO 6
   7 NEXT A;:INPUT 
:RETURN ;RUN 
>   {-1}
  20 .CLERICS & DRUIDS
NT=0;CLEAR 
   1 GOTO 10
   2 PRINT "S:",;RETURN 
   3 PRINT "I:",;RETURN 
   4 PRINT "W:",;RETURN 
   5 PRINT "D:",;RETURN 
   6 PRINT "C:",;RETURN 
   7 CX=CX-6;PRINT "CH:",;RETURN 
  10 .CHARACTER MAKER
  20 .CLERICS & DRUIDS
  25 FOR A=0TO 4;PRINT ;NEXT A;CLEAR ;X=400
  30 NT=1
  35 CY=-40
  40 FOR A=1TO 7;@(A)=0;MU=RND (65)+48
  50 FOR Z=20080TO 20088STEP 2;%(Z)=RND (6);NEXT Z;GOSUB 200
  60 NEXT A;NT=1
  65 CY=39;CX=-72
  70 C=RND (9);IF C>5PRINT "DRUID";GOTO 90
  80 PRINT "CLERIC
  90 L=RND (100)÷10+1
 100 CY=39;CX=12
 110 PRINT "LEVEL:",#3,L
 120 BOX 0,39,160,9,3
 125 CY=30;GOSUB 800
 130 BC=RND (32)×8-1
 140 FOR A=1TO 6;CX=48
 145 GOSUB A+1;PRINT #3,@(A);NEXT A
 155 CY=21;PRINT "SPELLS:
 160 PRINT ;CY=8
 170 GOSUB 270
 180 K=KP;RUN 
 190 IF E<BIF E<CIF E<D E=0
 200 IF D<BIF D<CIF D<E D=0
 210 IF C<BIF C<DIF C<E C=0
 220 IF B<CIF B<DIF B<E B=0
 230 @(A)=B+C+D+E
 240 IF @(A)>18 @(A)=18
 250 RETURN 
 270 FOR A=0TO 6;@(A)=0;NEXT A
 280 FOR S=1TO L
 290 GOSUB X+S×10+200×(C>5)
 300 NEXT S
 310 FOR S=1TO 6
 320 CX=S×18-96;CY=12;PRINT #3,S,
 330 FOR T=1TO @(S);IF @(S)=0T=0
 340 IF T=0GOTO 370
 350 CX=S×18-96
 355 CY=11-T×8
 360 Z=RND (12);IF C>5IF S>4IF Z>10GOTO 360
 365 IF C<6IF S>3IF Z>10GOTO 360
 367 PRINT #3,Z
 370 NEXT T
 380 PRINT 
 390 NEXT S
 395 BOX -24,12,108,9,3
 400 RETURN 
 410 @(1)=1;RETURN 
 420 @(1)=2;RETURN 
 430 @(2)=1;RETURN 
 440 @(1)=3;@(2)=2;RETURN 
 450 @(1)=4;@(3)=1;RETURN 
 460 @(3)=2;RETURN 
 470 @(2)=3;@(4)=1;RETURN 
 480 @(3)=3;@(4)=2;RETURN 
 490 @(5)=1;RETURN 
 500 @(2)=4;@(5)=2;RETURN 
 510 @(3)=4;@(4)=3;@(5)=3;RETURN 
 520 @(4)=4;@(5)=4;@(6)=1;RETURN 
 530 @(2)=3;RETURN 
 540 @(3)=2;RETURN 
 550 @(4)=1;RETURN 
 560 @(1)=5;@(3)=3;@(4)=2;RETURN 
 570 @(2)=4;@(5)=1;RETURN 
 580 @(4)=3;@(5)=2;RETURN 
 590 @(2)=5;@(3)=4;@(6)=1;RETURN 
 610 @(1)=2;RETURN 
 620 @(2)=1;RETURN 
 630 @(1)=3;@(2)=2;@(3)=1;RETURN 
 640 @(1)=4;@(3)=2;RETURN 
 650 @(2)=3;RETURN 
 660 @(4)=1;RETURN 
 670 @(2)=4;@(3)=3;RETURN 
 680 @(4)=2;RETURN 
 690 @(1)=5;@(5)=1;RETURN 
 700 @(4)=3;@(5)=2;RETURN 
 710 @(2)=5;@(6)=1;RETURN 
 800 H=RND (3);I=RND (3)
 802 IF C<6IF H=2IF I=2GOTO 800
 805 IF C>5 H=2;I=2
 810 IF H=1PRINT "LAWFUL ",
 820 IF H=2PRINT "NEUTRAL ",
 830 IF H=3PRINT "CHAOTIC ",
 840 IF I=1PRINT "EVIL",
 850 IF I=3PRINT "GOOD",
 860 PRINT ;RETURN 
:RETURN ;RUN 
>
  20 .MAGIC-USER & ILLUSIONIST
NT=0;CLEAR 
   1 GOTO 10
   2 PRINT "S:",;RETURN 
   3 PRINT "I:",;RETURN 
   4 PRINT "W:",;RETURN 
   5 PRINT "D:",;RETURN 
   6 PRINT "C:",;RETURN 
   7 CX=CX-6;PRINT "CH:",;RETURN 
  10 .CHARACTER MAKER
  20 .MAGIC-USER & ILLUSIONIST
  25 FOR A=0TO 4;PRINT ;NEXT A;CLEAR ;X=400
  35 CY=-40
  40 FOR A=1TO 7;@(A)=0;MU=RND (65)+48
  50 FOR Z=20080TO 20088STEP 2;%(Z)=RND (6);NEXT Z;GOSUB 200
  60 NEXT A;NT=1
  65 CY=39;CX=-72
  70 C=RND (11);IF @(2)>14IF @(4)>15IF C>5PRINT "ILLUSIONIST";GOTO 90
  80 PRINT "MAGIC-USER
  90 L=RND (11)
 100 CY=39;CX=12
 110 PRINT "LEVEL:",#3,L
 120 BOX 0,39,160,9,3
 125 PRINT 
 130 BC=RND (32)×8-1
 135 CY=30;GOSUB 600
 140 FOR A=1TO 6;CX=48
 145 GOSUB A+1;PRINT #3,@(A);NEXT A
 150 CY=18;PRINT "SPELLS:
 160 PRINT ;CY=8
 170 GOSUB 270
 180 K=KP;RUN 
 190 IF E<BIF E<CIF E<D E=0
 200 IF D<BIF D<CIF D<E D=0
 210 IF C<BIF C<DIF C<E C=0
 220 IF B<CIF B<DIF B<E B=0
 230 @(A)=B+C+D+E
 240 IF @(A)>18 @(A)=18
 250 RETURN 
 270 FOR A=0TO 6;@(A)=0;NEXT A
 280 FOR S=1TO L
 290 GOSUB X+S×10+70×((C>5)×(S>5))
 300 NEXT S
 310 FOR S=1TO 6
 320 CX=S×18-96;CY=8;PRINT #3,S,
 330 FOR T=1TO @(S);IF @(S)=0T=0
 340 IF T=0GOTO 370
 350 CX=S×18-96
 355 CY=4-T×8
 357 IF C>5PRINT #3,RND (8)+(S<4)×(RND (5)-1),;GOTO 370
 360 PRINT #3,RND (24)+(S=1)×(RND (7)-1),
 370 NEXT T
 380 PRINT 
 390 NEXT S
 395 BOX -24,8,108,9,3
 400 RETURN 
 410 @(1)=1;RETURN 
 420 @(1)=2;RETURN 
 430 @(2)=1;RETURN 
 440 @(1)=3;@(2)=2;RETURN 
 450 @(1)=4;@(3)=1;RETURN 
 460 @(3)=2;RETURN 
 470 @(2)=3;@(4)=1;RETURN 
 480 @(3)=3;@(4)=2;RETURN 
 490 @(5)=1;RETURN 
 500 @(2)=4;@(5)=2;RETURN 
 510 @(3)=4;@(4)=3;@(5)=3;RETURN 
 520 @(4)=4;@(5)=4;@(6)=1;RETURN 
 530 @(2)=3;RETURN 
 540 @(3)=2;RETURN 
 550 @(4)=1;RETURN 
 560 @(1)=5;@(3)=3;@(4)=2;RETURN 
 570 @(2)=4;@(5)=1;RETURN 
 580 @(4)=3;@(5)=2;RETURN 
 590 @(2)=5;@(3)=4;@(6)=1;RETURN 
 600 H=RND (3);I=RND (3)
 610 IF H=1PRINT "LAWFUL ",
 620 IF H=2PRINT "NEUTRAL ",
 630 IF H=3PRINT "CHAOTIC ",
 640 IF I=1PRINT "EVIL",
 650 IF I=3PRINT "GOOD",
 660 PRINT ;RETURN 
:RETURN ;RUN 
>
  20 .FIGHTERS
NT=0;CLEAR 
   1 GOTO 10
   2 PRINT "S:",;RETURN 
   3 PRINT "I:",;RETURN 
   4 PRINT "W:",;RETURN 
   5 PRINT "D:",;RETURN 
   6 PRINT "C:",;RETURN 
   7 CX=CX-6;PRINT "CH:",;RETURN 
  10 .CHA{-94}ACTER MAKE{-110}
  20 .FIGHTERS
  25 FOR A=0TO 4;PRINT ;NEXT A;CLEAR ;X=400
  30 NT=1
  35 CY=-40
  40 FOR A=1TO 7;@(A)=0;MU=RND (65)+48
  50 FOR Z=20080TO 20088STEP 2;%(Z)=RND (6);NEXT Z;GOSUB 200
  60 NEXT A;NT=1
  65 CY=39;CX=-72
  90 L=RND (60)÷10+1
 100 GOSUB 800
 120 BOX 0,39,160,9,3
 125 PRINT 
 130 BC=RND (32)×8-1
 140 FOR A=1TO 6;CX=48
 145 GOSUB A+1;PRINT #3,@(A);NEXT A
 150 PRINT ;CY=7;GOSUB 870
 180 K=KP;RUN 
 190 IF E<BIF E<CIF E<D E=0
 200 IF D<BIF D<CIF D<E D=0
 210 IF C<BIF C<DIF C<E C=0
 220 IF B<CIF B<DIF B<E B=0
 230 @(A)=B+C+D+E
 240 IF @(A)>18 @(A)=18
 250 RETURN 
 270 FOR Q=11TO 20;@(Q)=0;NEXT Q
 275 CY=-2;W=RND (5)
 280 FOR A=1TO W
 290 Q=RND (10);IF @(Q+10)GOTO 290
 295 CX=-72
 300 @(Q+10)=1;GOSUB Q×10+390
 310 NEXT A;RETURN 
 400 PRINT "SWORD";RETURN 
 410 PRINT "BASTARD";RETURN 
 420 PRINT "LONGBOW";RETURN 
 430 PRINT "CROSS-BOW";RETURN 
 440 PRINT "SPEAR";RETURN 
 450 PRINT "AXE";RETURN 
 460 PRINT "MACE";RETURN 
 470 PRINT "HAMMER";RETURN 
 480 PRINT "TRIDENT & NET",;CY=CY-8;RETURN 
 490 PRINT "SHORTBOW";RETURN 
 500 PRINT "DAGGER";RETURN 
 800 @(7)=RND (3);@(8)=RND (3)
 810 IF @(7)=1IF @(8)=1IF @(1)>11IF @(2)>8IF @(3)>12IF @(5)>8IF @(6)>16PRINT "PALADIN";C=1;GOTO 850
 820 IF @(8)=1IF @(1)>12IF @(2)>12IF @(3)>13IF @(5)>13PRINT "RANGER";C=2;GOTO 850
 830 PRINT "FIGHTER";C=3;GOTO 850
 831 PRINT "LAWFUL ",;RETURN 
 832 PRINT "NEUTRAL ",;RETURN 
 833 PRINT "CHAOTIC ",;RETURN 
 835 PRINT "GOOD";RETURN 
 836 PRINT ;RETURN 
 837 PRINT "EVIL";RETURN 
 850 CY=39;CX=12;PRINT "LEVEL:",#3,L
 855 CX=-64;CY=23;GOSUB 830+@(7);GOSUB 834+@(8)
 860 CY=31;PRINT "  AC:",#3,5-RND (7)
 865 RETURN 
 870 PRINT " WEAPONS:
 880 BOX -36,-14,84,51,3
 890 BOX -36,-18,82,41,3
 900 GOTO 270
:RETURN ;RUN 

  20 .THIEVES & ASSASSINS
NT=0;CLEAR 
   1 GOTO 10
   2 PRINT "S:",;RETURN 
   3 PRINT "I:",;RETURN 
   4 PRINT "W:",;RETURN 
   5 PRINT "D:",;RETURN 
   6 PRINT "C:",;RETURN 
   7 CX=CX-6;PRINT "CH:",;RETURN 
  10 .CHARACTER MAKER
  20 .THIEVES & ASSASSINS
  25 FOR A=0TO 4;PRINT ;NEXT A;CLEAR ;X=400
  35 CY=-40
  40 FOR A=1TO 7;@(A)=0;MU=RND (65)+48
  50 FOR Z=20080TO 20088STEP 2;%(Z)=RND (6);NEXT Z;GOSUB 200
  60 NEXT A;NT=1
  65 CY=39;CX=-72
  70 GOSUB 800
  80 K=KP;RUN 
 120 BOX 0,39,160,9,3
 125 PRINT ;CY=22
 130 BC=RND (32)×8-1
 140 FOR A=1TO 6;CX=48
 145 GOSUB A+1;PRINT #3,@(A);NEXT A
 150 GOTO 865
 190 IF E<BIF E<CIF E<D E=0
 200 IF D<BIF D<CIF D<E D=0
 210 IF C<BIF C<DIF C<E C=0
 220 IF B<CIF B<DIF B<E B=0
 230 @(A)=B+C+D+E
 240 IF @(A)>18 @(A)=18
 250 RETURN 
 270 PRINT "PICK:",#3,L×5+25,"%
 280 PRINT "OPEN:",#3,L×4+21+(L>4)×(L-4),"%
 290 PRINT "FIND:",#3,L×5+15,"%
 300 PRINT "MOVE:",#3,L×6+9+(L>4)+(L>6)×(L-4)+(L=6)+(L=9),"%
 310 PRINT "HIDE:",#3,L×5+5+(L>4)+(L>5)×(L-5)+(L=9),"%
 315 Z=L÷2;IF RM Z=Z+1
 320 PRINT "HEAR:",#3,Z×5+5,"%
 330 IF L<5 Z=1;Y=84
 340 IF L>4IF L#10 Z=2;Y=80
 350 IF L=10 Z=1;Y=89
 360 PRINT "CLIMB:",#3,L×Z+Y,"%
 370 Z=0;IF L>3 Z=5
 380 PRINT "READ:",#3,L×Z,"%
 390 RETURN 
 800 @(7)=RND (3);@(8)=RND (3)
 810 IF @(8)=3IF @(1)>11IF @(2)>10IF @(4)>11PRINT "ASSASSIN";C=2;GOTO 850
 820 PRINT "THIEF";C=1;GOTO 850
 831 .
 832 PRINT "NEUTRAL ",;RETURN 
 833 PRINT "CHAOTIC ",;RETURN 
 835 PRINT "GOOD";RETURN 
 836 PRINT ;RETURN 
 837 PRINT "EVIL";RETURN 
 850 CX=0;CY=30;GOSUB 830+@(7);GOSUB 834+@(8)
 860 L=RND (9);CY=39;CX=12;PRINT "LEVEL:",#3,L
 862 GOTO 120
 865 CY=30
 900 GOTO 270
:RETURN ;RUN 
>
   1 .PERSONALITY
   2 .(C) 1980 R.C. TIETJENS
NT=0;CLEAR 
   1 .PERSONALITY
   2 .(C) 1980 R.C. TIETJENS
   3 CLEAR 
   4 NT=1
   5 GOTO 995
   6 .
   7 .
  51 PRINT "NONE";RETURN 
  52 .
  53 PRINT "SCANT";RETURN 
  54 .
  55 .
  56 .
  57 PRINT "AVERAGE";RETURN 
  58 PRINT "ABOVE AVERAGE";RETURN 
  59 PRINT "EXCEPTIONAL";RETURN 
  60 PRINT "SUPERABUNDANT";RETURN 
  61 PRINT "YOUNG";RETURN 
  62 .
  63 PRINT "YOUTHFUL";RETURN 
  64 .
  65 .
  66 .
  67 PRINT "MATURE";RETURN 
  68 PRINT "MIDDLE-AGED";RETURN 
  69 PRINT "OLD";RETURN 
  70 PRINT "ANCIENT";RETURN 
  71 PRINT "DIRTY";RETURN 
  72 PRINT "CLEAN";RETURN 
  73 PRINT "UNKEMPT";RETURN 
  74 PRINT "IMMACULATE";RETURN 
  75 PRINT "ROUGH";RETURN 
  76 PRINT "RAGGED";RETURN 
  77 PRINT "DANDYISH";RETURN 
  78 PRINT "FOPPISH";RETURN 
  79 PRINT "NON-DESCRIPT";RETURN 
  80 PRINT "IMPOSING";RETURN 
  81 PRINT "VERY STABLE";RETURN 
  82 .
  83 .
  84 .
  85 .
  86 PRINT "NORMAL";RETURN 
  87 PRINT "NEUROTIC";RETURN 
  88 PRINT "UNSTABLE";RETURN 
  89 .
  90 GOTO 800
  91 PRINT "OPTIMIST";RETURN 
  92 PRINT "ALTRUIST";RETURN 
  93 PRINT "KINDLY";RETURN 
  94 PRINT "CURIOUS";RETURN 
  95 PRINT "TRUSTING";RETURN 
  96 PRINT "EXACTING";RETURN 
  97 PRINT "PERCEPTIVE";RETURN 
  98 PRINT "STUDIOUS";RETURN 
  99 PRINT "HEDONIST";RETURN 
 100 PRINT "CARELESS";RETURN 
 101 PRINT "MISCHEVIOUS";RETURN 
 102 PRINT "CRUEL";RETURN 
 103 PRINT "BARBARIC";RETURN 
 104 PRINT "OBSESSIVE";RETURN 
 105 PRINT "CONTRARY";RETURN 
 106 PRINT "PRANKSTER";RETURN 
 107 PRINT "PESSIMIST";RETURN 
 108 PRINT "SOBER";RETURN 
 109 PRINT "CAUTIOUS";RETURN 
 110 PRINT "MOODY";RETURN 
 111 PRINT "VIOLENT";RETURN 
 112 PRINT "SERVILE";RETURN 
 113 PRINT "MALEVOLENT";RETURN 
 114 PRINT "BARBARIC";RETURN 
 201 PRINT "MODEST";RETURN 
 202 PRINT "ARROGANT";RETURN 
 203 PRINT "FRIENDLY";RETURN 
 204 PRINT "ALOOF";RETURN 
 205 PRINT "HOSTILE";RETURN 
 206 PRINT "WELL-SPOKEN";RETURN 
 207 PRINT "DIPLOMATIC";RETURN 
 208 PRINT "ABRASIVE";RETURN 
 211 PRINT "FORCEFUL";RETURN 
 212 PRINT "OVERBEARING";RETURN 
 213 GOTO 203
 214 PRINT "BLUSTERING";RETURN 
 215 PRINT "ANTAGONISTIC";RETURN 
 216 PRINT "RUDE";RETURN 
 217 PRINT "RASH";RETURN 
 218 GOTO 207
 221 PRINT "RETIRING";RETURN 
 222 PRINT "TACITURN";RETURN 
 223 GOTO 203
 224 GOTO 204
 225 GOTO 205
 226 GOTO 216
 227 PRINT "COURTEOUS";RETURN 
 228 PRINT "SOLITARY";RETURN 
 800 D=RND (10);IF D<9GOTO 80+D
 810 IF D=9PRINT "INSANE
 820 IF D=10PRINT "MANIACAL
 830 RETURN 
 901 .
 902 .
 903 .
 904 .
 905 PRINT "NORMAL",;N=0;RETURN 
 906 .
 907 PRINT "EXTROVERTED",;N=10;RETURN 
 908 PRINT "INTROVERTED",;N=20;RETURN 
 950 D=RND (10);GOTO N+D
 995 .BEGIN
1000 PRINT "WEALTH: ",;N=50;GOSUB 950
1010 PRINT "AGE: ",;N=60;GOSUB 950
1020 PRINT "APPEARANCE: ",;N=70;GOSUB 950
1030 PRINT "SANITY: ",;N=80;GOSUB 950
1032 S=D;PRINT ;CY=6
1035 PRINT "TENDENCIES:
1037 FOR D=0TO 24;@(D)=0;NEXT D
1038 G=RND (29)÷10
1039 IF S=7@(5)=1
1040 FOR R=1TO RND (30)÷10+3
1045 D=RND (8)+G
1047 IF S>8 G=RND (3)
1050 IF @(D)GOTO 1045
1052 N=R÷2;IF RM=0 CY=CY+8;CX=0
1055 GOSUB 90+D;@(D)=1
1060 NEXT R
1070 D=RND (8);C=RND (8);CY=CY-2
1080 PRINT "PERSONALITY:
1090 GOSUB 900+D;CX=0;GOSUB 200+N+C
1100 K=KP;RUN 
       1
       2
       6
       7
:RETURN ;RUN 
>
   1 .RACES
NT=0;CLEAR 
   1 .RACES
   2 .(C) 1980 R.C. TIETJENS
   3 CLEAR 
   4 :RETURN 
   5 NT=1
   6 *PRINT 
   7 .
  30 R=RND (10)
  40 IF R>6 R=7
  51 GOSUB R×100
  60 FOR T=0TO 500;NEXT T
  70 GOSUB 999
  80 RUN 
 100 PRINT "DWARF
 105 S=RND (5);GOSUB 800
 110 PRINT "+1 CONSTITUTION
 120 PRINT "-1 CHARISMA (VS. NON-     DWARVES)
 130 PRINT "NO MAGIC SPELLS
 131 GOSUB 999
 132 GOSUB 900;PRINT "75%
 133 GOSUB 910;PRINT "75%
 134 GOSUB 920;PRINT "67%
 135 GOSUB 930;PRINT "50%
 136 GOSUB 940;PRINT "50%";GOSUB 999
 137 GOSUB 850;PRINT "ORCS, HALF-ORCS, GOBLINS & HOBGOBLINS
 138 GOSUB 870;GOSUB 875
 150 GOSUB 980
 160 PRINT " * +10 +15 * * * -10 -5
 190 GOTO 1100
 200 PRINT "ELF
 205 M=90
 210 GOSUB 710
 215 IF M=30GOTO 250
 220 PRINT "DEXTERITY +1
 230 PRINT "CONSTITUTION -1
 240 PRINT "MOVE SILENTLY 66 2/3%
 250 PRINT 'RESIST "SLEEP" AND "CHARM" ',#3,M,'%
 260 GOSUB 980
 270 IF M=90PRINT "+5 -5 * +5 +10 +5 * *
 280 IF M=30PRINT "+10 * * * +5 * * *
 290 GOTO 1100
 300 PRINT "GNOME
 310 S=RND (5);GOSUB 800
 320 GOSUB 900;PRINT "80%
 330 GOSUB 950;PRINT "70%
 340 GOSUB 940;PRINT "60%
 350 GOSUB 960;PRINT "50%
 355 GOSUB 999
 360 GOSUB 850;PRINT "KOBOLDS & GOBLINS
 370 GOSUB 870;PRINT "GNOLLS, BUGBEARS,";GOSUB 875
 375 GOSUB 980;PRINT " * +5 +10 +5 +5 +10 -15 *
 380 GOTO 1100
 400 PRINT "HALF-ELVEN
 410 M=30;GOTO 210
 500 PRINT "HALFLING
 505 S=RND (3);GOSUB 800
 506 B=RND (5);IF B=1PRINT "FALLOHIDE
 507 IF (B=2)+(B=3)PRINT "HARFOOT
 508 IF B>3PRINT "STOOR (STOUT)
 510 PRINT "STRENGTH -1
 520 PRINT "DEXTERITY +1
 530 GOSUB 900;PRINT "75%
 540 GOSUB 960;PRINT "50%
 560 GOSUB 980;PRINT "+5 +5 +5 +10 +15 +5 -15 -5
 565 IF B<4PRINT "30 FOOT ",
 570 GOTO 1100
 600 PRINT "HALF-ORC
 610 GOSUB 710
 620 PRINT "STRENGTH +1
 630 PRINT "CONSTITUTION +1
 640 PRINT "CHARISMA -2 (VS. NON-HALF-ORCS)
 645 GOSUB 980;PRINT "-5 +5 +5 * * +5 +5 -10
 650 GOTO 1100
 700 CY=16;PRINT "HUMAN
 710 S=RND (2)
 800 IF S=1CY=CY+8;CX=0;PRINT "FEMALE
 810 RETURN 
 850 PRINT "+1 TO HIT:";RETURN 
 870 PRINT "-4 TO ATTACKS BY:";RETURN 
 875 PRINT "OGRES, OGRE MAGI, TROLLS, GIANTS, & TITANS
 880 RETURN 
 900 PRINT "DETECT SLOPE ",;RETURN 
 910 PRINT "DETECT NEW STONEWORK ",;RETURN 
 920 PRINT "DETECT SLIDING/SHIFTING   STONEWORK ",;RETURN 
 930 PRINT "FIND STONEWORK TRAPS ",;RETURN 
 940 PRINT "KNOW DEPTH ",;RETURN 
 950 PRINT "FIND UNSAFE STRUCTURE ",;RETURN 
 960 PRINT "KNOW DIRECTION ",;RETURN 
 970 PRINT "MOVE SILENTLY (ALONE, NON-METAL ARMOR) ",;RETURN 
 980 PRINT ;PRINT "THIEF BONUSES:";RETURN 
 999 IF TR(1)=0IF &(22)=0IF &(21)=0IF &(23)=0GOTO 999
1000 CLEAR ;RETURN 
1100 PRINT "INFRAVISION
1110 RETURN 
:RETURN ;RUN 
>


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS


.END OF SIDE A
.ENTIRE CONTENTS
.(C) 1980 BY
.  R. C. TIETJENS
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
CDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ